*** empty log message ***

diff --git a/lisp/files.el b/lisp/files.el
index e2cde74d6a14ea8aaddab1e83b8544200e6e1149..3be6c2429cd9da3e40ce3c367572b52979f0e385 100644 (file)
--- a/lisp/files.el
+++ b/lisp/files.el
@@ -2314,7 +2314,7 @@ we don't actually set it to the same mode the buffer already has."
                (remote-id (file-remote-p buffer-file-name)))
            ;; Remove remote file name identification.
            (when (and (stringp remote-id)
-                      (string-match remote-id name))
+                      (string-match (regexp-quote remote-id) name))
              (setq name (substring name (match-end 0))))
            ;; Remove backup-suffixes from file name.
            (setq name (file-name-sans-versions name))